home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 27.zip / BS1 part 27 / StudioV1.12.adf / Install-Studio < prev    next >
Text File  |  1993-06-30  |  49KB  |  1,701 lines

  1. ; $VER: Studio 1.12 (29.06.93)
  2. ; Copyright (C)1992,93 Wolf Faust
  3.  
  4. (complete 0)
  5. (delopts "oknodelete" "force" "askuser")
  6. ;**** English text
  7.  
  8. (set #welcome
  9. (cat "\nIntermediate: printer drivers get installed on the used system disk.\n"
  10.     "Expert:  may install printer drivers on any wanted disks.\n\n"
  11. ))
  12. (set #welcome-pirate
  13. (cat "\nWelcome to the Studio printer software!\n\n"
  14.     "Studio is Copyright (C)1992,93 by Wolf Faust\n"
  15.     "This software is NOT public domain, shareware, freeware...\n\n\n"
  16.     "Please, spread the word and do not copy!"
  17. ))
  18. (set #bad-kick
  19. (cat    "\nYour system software is very old. "
  20.     "You must use at least Kickstart 2.04 for all Studio programs "
  21.     "with  an  user-interface.   Anyway,  you may use the printer "
  22.     "drivers until you have updated your system software."
  23. ))
  24. (set #w-studio
  25. (cat "Wich parts of Studio do you want to install?"
  26. ))
  27. (set #w-studio-help
  28. (cat "\nStudio is devided in two independent parts: "
  29.     "printer driver and Studio print program. "
  30.     "You can now select wich parts should be installed!\n\n".
  31.     @askoptions-help
  32. ))
  33. (set #w-studio-choices1
  34. (cat "Studio printer driver"
  35. ))
  36. (set #w-studio-choices2
  37. (cat "Studio application program"
  38. ))
  39. (set #which-disk
  40. (cat "In which disk or drawer should the Studio application program be installed?"
  41. ))
  42. (set #which-disk-help
  43. (cat "\nThis section lets you choose in which drawer or on which disk the "
  44.     "Studio application program files should be installed. "
  45.     "These should normally go into the default directory of your graphic "
  46.     "application programs.\n\n"
  47.     @askdir-help
  48. ))
  49. (set #abortmsg
  50. (cat "\nThis installation requires about 160000 bytes free on the volume "
  51.     "where you wish to install Studio. Please make this space "
  52.     "available and then re-install.\n\n"
  53. ))
  54. (set #abortunpack
  55. (cat "\nError occured while unpacking/writing a file!\n\n"
  56. ))
  57. (set #ask-sys
  58. (cat "\nIn which disk or drawer should the Studio printer driver be installed?"
  59. ))
  60. (set #ask-sys-help
  61. (cat "\nThis section lets you choose in which drawer or on which disk the "
  62.     "Studio printer driver should be installed. "
  63.     "The driver should normally go into the \"devs:printers\" directory "
  64.     "of your system disk.\n\n"
  65.     @askdir-help
  66. ))
  67. (set #abortmsgdriver
  68. (cat "\nThis installation requires >35000 bytes free on the volume "
  69.     "where you wish to install the printer driver. Please make this space "
  70.     "available and then re-install.\n\n"
  71. ))
  72. (set #ask-prefs
  73. (cat "\nIn which disk or drawer should the printer preferences program be installed?"
  74. ))
  75. (set #ask-prefs-help
  76. (cat "\nThis section lets you choose in which drawer or on which disk the "
  77.     "Studio printer driver preferences program should be installed. "
  78.     "These should normally go into the \"sys:prefs\" directory of your system "
  79.     "disk.\n\n"
  80.     @askdir-help
  81. ))
  82. (set #abortmsgpref
  83. (cat "\nThis installation requires >80000 bytes free on the volume "
  84.     "where you wish to install the preferences program. Please make this space "
  85.     "available and then re-install.\n\n"
  86. ))
  87. (set #missing-env-kick
  88. (cat "\nThere is no ENV: directory available for storing the driver environment settings!\n"
  89.     "Studio stores settings like emulation and brightness in the ENV: directory. "
  90.     "Normaly, ENV: is generated by the standard Commodore startup-sequence.\n"
  91.     "It seems, you have altered the startup-sequence. Please change the startup-sequence "
  92.     "and reinstall!\n\n"
  93. ))
  94. (set #ask-env-mes
  95. (cat "\nThere is no ENV: directory available for storing the driver environment settings!\n"
  96.     "Studio stores settings like emulation and brightness in the ENV: directory. "
  97.     "Normaly, ENV: is generated by the standard Commodore startup-sequence.\n"
  98.     "It seems, you have altered the startup-sequence. You may now change the startup-sequence "
  99.     "with the help of this install program!\n\n"
  100. ))
  101. (set #ask-env
  102. (cat "\nIn which disk or drawer should the environment settings (ENV:) be saved?"
  103. ))
  104. (set #ask-env-help
  105. (cat "\nThis section lets you choose in which drawer or on which disk the "
  106.     "Studio printer driver places its enviroment settings. "
  107.     "These should normally go in the \"ENV:\" directory of your system disk.\n\n"
  108.     "Make sure ENV: is saved on a non volatile disk, so your settings "
  109.     "keep active even after a turning off your computer\n\n"
  110.     @askdir-help
  111. ))
  112. (set #ask-startup
  113. (cat "\nAdd ENV: assign to \"S:user-startup\"?"
  114. ))
  115. (set #ask-startup-help
  116. (cat "\nSelect YES to add assign to the user-startup file\n\n"
  117.     @startup-help
  118. ))
  119. (set #warn-env-kick
  120. (cat "\nNote: Please make sure your ENV: directory is assigned to a non volatile "
  121.     "disk in your \"s:startup-sequence\" or you will loose your driver settings "
  122.     "when turning off your computer. So please, check your startup-sequence after "
  123.     "finishing this installation and change it if required.\n\n"
  124.     "Note: unchanged standard Workbench 1.3.x startup-sequences do NOT assign "
  125.     "ENV: to a non-volatile disk and must get altered\n"
  126. ))
  127. (set #w-emul
  128. (cat "What's your printers emulation?"
  129. ))
  130. (set #w-emul-help
  131. (cat "\nStudio includes several printer drivers for various "
  132.     "printer emulations. "
  133.     "Have a look into your printers user manual for "
  134.     "finding the emulation supported by your printer.\n\n"
  135.     "NOTE: often printers support more than one emulation. "
  136.     "You may have to try several emulations to find the one "
  137.     "fitting your needs best!\n\n"
  138.     @askchoice-help
  139. ))
  140. (set #w-desk
  141. (cat "What's your printers emulation?"
  142. ))
  143. (set #w-desk-help
  144. (cat @askchoice-help
  145. ))
  146. (set #w-color
  147. (cat "What kind of printer do you have?"
  148. ))
  149. (set #w-color-help
  150. (cat "\nStudio printer drivers allow you to print up to 256 greyshades "
  151.     "simulating a color printer. In order to enable this feature, you have "
  152.     "to choose between color or 256 greyshades.\n"
  153.     "You should select the kind of printer you have as default. "
  154.     "You may alter the setting anytime using the Studio preferences program.\n\n"
  155.     @askchoice-help
  156. ))
  157. (set #w-color-choice1
  158. (cat "Colour"
  159. ))
  160. (set #w-color-choice2
  161. (cat "Black and white"
  162. ))
  163. (set #cfm-delete
  164. (cat "\n\nCan the old Studio printer driver settings be deleted?"
  165. ))
  166. (set #cfm-delete-help
  167. (cat "\nIt seems you have allready installed a Studio printer driver. "
  168.     "You must delete the settings made for the previous driver before "
  169.     "installing a new driver.\n\n"
  170. ))
  171. (set #cfm-delete-1
  172. (cat "Yes, kill'm"
  173. ))
  174. (set #cfm-delete-2
  175. (cat "No"
  176. ))
  177. (set #cfmdelete
  178. (cat "You did not allow me to delete your old driver settings! "
  179.     "Sorry, I'm unable to install a driver without erasing your "
  180.     "previous settings. This is done for your secure. "
  181.     "In case you decided to delete the settings, try installing again!\n\n"
  182. ))
  183. (set #w-driver
  184. (cat "What's your printers emulation/brand?"
  185. ))
  186. (set #w-driver-help
  187. (cat "\nStudio includes several printer drivers for various "
  188.     "printer emulations. "
  189.     "Have a look into your printers user manual for "
  190.     "finding the emulation supported by your printer.\n\n"
  191.     "NOTE: often printers support more than one emulation. "
  192.     "You may have to try several emulations to find the one "
  193.     "fitting your needs best!\n\n"
  194.     @askchoice-help
  195. ))
  196. (set #w-ink
  197. (cat "What kind of printer do you have?"
  198. ))
  199. (set #w-ink-help
  200. (cat @askchoice-help
  201. ))
  202. (set #w-ink-choice1
  203. (cat "Inkjet printer"
  204. ))
  205. (set #w-ink-choice2
  206. (cat "Pin printer"
  207. ))
  208. (set #w-gemu
  209. (cat "What's your printers graphic emulation?"
  210. ))
  211. (set #w-gemu-help
  212. (cat "\nMost 24 pin printers support 360 vertical dots per inch. "
  213.     "Star printers do this by using one of two emulation: NEC or EPSON. "
  214.     "The emulation usualy gets selected by a printer dip-switch."
  215.     "\n\nNote: Old Star (NB) printers only support NEC emulation!\n\n"
  216.     "You may now choose the emulation for the Amiga driver, which must be equal to "
  217.     "the printers setup. You may also change the setting later using the Studio "
  218.     "PinPref program\n\n"
  219.     @askchoice-help
  220. ))
  221. (set #w-gemu2
  222. (cat "What's your printers graphic emulation?"
  223. ))
  224. (set #w-gemu2-help
  225. (cat "\nMost 24 pin printers support 360 vertical dots per inch. "
  226.     "Panasonic printers do this by using one of two emulation: NEC or EPSON. "
  227.     "The emulation usualy gets selected by a printer dip-switch."
  228.     "\n\nNote: Old Panasonic printers only support NEC emulation!\n\n"
  229.     "You may now choose the emulation for the Amiga driver, which must be equal to "
  230.     "the printers setup. You may also change the setting later using the Studio "
  231.     "PinPref program\n\n"
  232.     @askchoice-help
  233. ))
  234. (set #w-laser
  235. (cat "What kind of laser do you have?"
  236. ))
  237. (set #w-laser-help
  238. (cat "\nThere are several kinds of laserjet emulations available. "
  239.     "This window helps you finding a good setup for your printer, "
  240.     "though, you most likely have to \"fine tune\" the settings. \n\n"
  241.     @askchoice-help
  242. ))
  243. (set #pagestream
  244. (cat "\n\nDo you want to install PCL 5 (Laserjet III/IV) drivers for the "
  245.     "PageStream 2.x DTP program?\n\n"
  246. ))
  247. (set #pagestream-help
  248. (cat "\nStudio comes with special printer drivers for the PageStream 2.x "
  249.     "program. In case you own this DTP package, you can use these faster "
  250.     "printer drivers offering a 200%% speed increase."
  251. ))
  252. (set #pagestream-yes
  253. (cat "Yes"
  254. ))
  255. (set #pagestream-no
  256. (cat "No"
  257. ))
  258. (set #pagestreamdesk
  259. (cat "\n\nDo you want to install custom DeskPref4C driver for the "
  260.     "PageStream 2.x DTP program?\n\n"
  261. ))
  262. (set #pagestreamdesk1200
  263. (cat "\n\nATTENTION: Deskjet 1200 and Paintjet 300XL users MUST set "
  264.         "the PageStream SPECIAL gadget to \"pcl5\" (case-sensitive!), or "
  265.         "the PageStream driver won't work!!\n\n"
  266. ))
  267. (set #emu
  268. (cat "\n\nDo you use more than one emulation on your printer? "
  269.     "In case you switch your printer between these emulations (manual or automatic) select YES.\n\n"
  270. ))
  271. (set #emu-help
  272. (cat "\nSelect yes if you own a printer wich allows you to switch between "
  273.     "emulations. For instance, your printer owns a PostScript cartridge and you "
  274.     "use the Laserjet and PostScript emulation on your printer during a session. "
  275.     "In this case select YES and the Studio laserjet driver will make sure, "
  276.     "your printer is setup right each time you print a document.\n\n"
  277. ))
  278. (set #emu-yes
  279. (cat "Yes"
  280. ))
  281. (set #emu-no
  282. (cat "No"
  283. ))
  284. (set #ask-pagestream
  285. (cat "\nIn which drawer should the PageStream drivers (HP-PCL5 & HP-PCL5-PJL) be saved?"
  286. ))
  287. (set #ask-pagestreamdesk
  288. (cat "\nIn which drawer should the PageStream drivers (DeskPref4C) be saved?"
  289. ))
  290. (set #ask-pagestream-help
  291. (cat "\nThis section lets you choose in which drawer the PageStream driver should be saved. "
  292.     "These should normally go into the PageStream \"Printers\" directory.\n\n"
  293.     @askdir-help
  294. ))
  295. (set #HPsetup
  296. (cat "\n\nPlease set your printer resolution to 600 dpi!"
  297. ))
  298. (set #finalmsg1
  299. (cat "Your requested driver has been installed. The name of the driver is\n\""
  300. ))
  301. (set #finalmsg2
  302. (cat "\"\nand should now be selected in the Workbench preferences program \"Printer\".\n"
  303.     "The Studio driver preferences program has been saved as\n\""
  304. ))
  305. (set #finalmsg3
  306. (cat "\"\nand should now be used to adjust the driver to your needs.\n"
  307.     "Note: the settings and adjustments made by this install program are far from "
  308.     "being best. Please adjust all settings to your printer!"
  309. ))
  310. (set #wrongdither
  311. (cat "\n\nWARNING: Your Workbench preferences is setup WRONG!\n\n"
  312.     "Please select \"ordered\" dithering in preferences "
  313.     "(in \"PrinterGfx\"). I will now try to start Workbench preferences for you."
  314. ))
  315. (set #waitmsg
  316. (cat "\n\n\n\nWorking! Please wait..."
  317. ))
  318.  
  319. ;*** German
  320. (if (= @language "deutsch")
  321. (
  322.  
  323. (set #welcome
  324. (cat "\nBei \"Intermediate\" werden die Treiber auf der aktuellen Systemdiskette installiert.\n"
  325.     "Bei \"Expert\" können die Druckertreiber auf einer beliebigen Disk gespeichert werden.\n\n"
  326. ))
  327. (set #welcome-pirate
  328. (cat "\nWillkommen zur Installation der Studio-Software!\n\n"
  329.     "Copyright (C)1992,93 Wolf Faust / Vertrieb: MacroSystem\n"
  330.     "Studio ist NICHT Public Domain, Shareware, FreeWare oder ähnliches!\n\n\n"
  331.     "Bitte kopieren Sie daher nicht die Software oder ein weiteres Amiga-Produkt "
  332.     "kann in Zukunft nicht unterstützt werden!"
  333. ))
  334. (set #bad-kick
  335. (cat    "\nIhre System-Software ist sehr alt. "
  336.     "Sie brauchen mindestens Kickstart 2.04 für alle Studio-Programme "
  337.     "mit einer Benutzeroberfläche. Sie können dennoch die Druckertreiber "
  338.     "benutzen, bis Sie Ihre System-Software auf den neusten Stand gebracht haben."
  339. ))
  340. (set #w-studio
  341. (cat "Welche Programme der Studio-Software wollen Sie installieren?"
  342. ))
  343. (set #w-studio-help
  344. (cat "\nDie Studio-Software besteht im wesentlichen aus zwei von einander "
  345.     "unabhängigen Teilen: Druckertreiber und dem Studio-Anwendungsprogramm. "
  346.     "Sie können jetzt wählen, welche Teile Sie installieren wollen.\n\n"
  347.     @askoptions-help
  348. ))
  349. (set #w-studio-choices1
  350. (cat "Studio Druckertreiber"
  351. ))
  352. (set #w-studio-choices2
  353. (cat "Studio Anwendungsprogramm"
  354. ))
  355. (set #which-disk
  356. (cat "\nIn welche Disk oder Schublade soll das Studio-Anwendungsprogramm kopiert werden?"
  357. ))
  358. (set #which-disk-help
  359. (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welcher "
  360.     "Schublade das Studio-Programm kopiert werden soll. Normalerweise sollten "
  361.     "Sie hierzu die Schublade wählen, in der Sie auch Ihre anderen "
  362.     "Grafikprogramme speichern.\n\n"
  363.     "Bitte beachten Sie, daß das Studio-Programm in die Schublade kopiert "
  364.     "wird und keine neue Schublade ohne ausdrücklichen Wunsch angelegt wird.\n\n"
  365.     @askdir-help
  366. ))
  367. (set #abortmsg
  368. (cat "\nDas Studio-Programm benötigt ca. 160000 Bytes an freiem Speicher "
  369.     "auf dem von Ihnen angegebenen Datenträger. Leider ist nicht genug "
  370.     "Speicherplatz auf dem Datenträger vorhanden. Löschen Sie bitte "
  371.     "daher unnötige Dateien und versuchen Sie die Installation erneut!\n\n"
  372. ))
  373. (set #abortunpack
  374. (cat "\nEin Fehler trat beim Entpacken/Schreiben einer Datei auf!\n\n"
  375. ))
  376. (set #ask-sys
  377. (cat "\nIn welche Disk oder Schublade soll der Studio-Druckertreiber kopiert werden?"
  378. ))
  379. (set #ask-sys-help
  380. (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welche "
  381.     "Schublade der Studio-Druckertreiber kopiert werden soll. Normalerweise sollten "
  382.     "Sie hierzu die Schublade \"Devs:Printers\" wählen.\n\n"
  383.     @askdir-help
  384. ))
  385. (set #abortmsgdriver
  386. (cat "\nDer Studio-Druckertreiber benötigt ca. 35000 Bytes an freiem Speicher "
  387.     "auf dem von Ihnen angegebenen Datenträger. Leider ist nicht genug "
  388.     "Speicherplatz auf dem Datenträger vorhanden. Löschen Sie bitte "
  389.     "daher unnötige Dateien und versuchen Sie die Installation erneut!\n\n"
  390. ))
  391. (set #ask-prefs
  392. (cat "\nIn welche Disk oder Schublade soll das Voreinsteller-Programm "
  393.     "(engl. Preferences) kopiert werden?"
  394. ))
  395. (set #ask-prefs-help
  396. (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welche "
  397.     "Schublade das Studio Voreinsteller-Programm kopiert werden soll. "
  398.     "Normalerweise sollten Sie hierzu die Schublade \"Sys:prefs\" wählen.\n\n"
  399.     @askdir-help
  400. ))
  401. (set #missing-env-kick
  402. (cat "\nLeider ist keine Schublade mit dem Namen \"Env:\" auffindbar!\n"
  403.     "Studio speichert alle Treiber-Einstellungen in dieser Schublade. "
  404.     "Normalerweise wird \"Env:\" von der standard Startup-Sequence von "
  405.     "Commodore erzeugt. Es scheint, Sie benutzen eine veränderte "
  406.     "Startup-Sequence.\n"
  407.     "Bitte korregieren Sie Ihre Startup-Sequence und installieren Studio von "
  408.     "neuem!\n\n"
  409. ))
  410. (set #abortmsgpref
  411. (cat "\nDas Studio-Programm für die Voreinstellungen benötigt ca. 80000 Bytes "
  412.     "an freiem Speicherplatz auf der angegebenen Disk.\n\n"
  413.     "Leider habe Sie nicht genug Speicherplatz auf der Disk frei! "
  414.     "Bitte machen Sie genug Speicherkapazität frei und versuchen erneut "
  415.     "eine Installation!\n\n"
  416. ))
  417. (set #ask-env-mes
  418. (cat "\nLeider ist keine Schublade mit dem Namen \"Env:\" auffindbar!\n"
  419.     "Studio speichert alle Treiber-Einstellungen in dieser Schublade. "
  420.     "Normalerweise wird \"Env:\" von der standard Startup-Sequence von "
  421.     "Commodore erzeugt. Es scheint, Sie benutzen eine veränderte "
  422.     "Startup-Sequence.\n\n"
  423.     "Sie erhalten jetzt die Möglichkeit, Ihre Startup-Sequence mittels "
  424.     "dieses Installations-Programms zu erweitern.\n\n"
  425. ))
  426. (set #ask-env
  427. (cat "\nIn welche Disk oder Schublade sollen die Voreinstellungen (\"Env:\") gespeichert werden?"
  428. ))
  429. (set #ask-env-help
  430. (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welcher "
  431.     "Schublade der Studio-Druckertreiber seine Voreinstellungen speichert. "
  432.     "Die hier anzugebene Disk bzw. die Schublade (ENV:) sollte NICHT aus einem "
  433.     "leicht löschbaren Medium (z.B. Ram Disk) bestehen, da Sie sonst mit "
  434.     "dem Ausschalten des Computers auch alle Voreinstellungen löschen.\n\n"
  435.     @askdir-help
  436. ))
  437. (set #ask-startup
  438. (cat "\nSoll ich die Zuweisung von "ENV:" in der Datei \"S:user-startup\" vornehmen?"
  439. ))
  440. (set #ask-startup-help
  441. (cat "\nStudio Druckertreiber speichern Ihre Voreinstellung in \"Env:\". "
  442.     "Die Schublade ENV: wird normalerweise von der Startup-Sequence- bzw. User-Startup-Datei Ihres Rechners "
  443.     "angelegt. Dieser Vorgang findet scheinbar bei Ihnen nicht statt. "
  444.     "Sie können daher jetzt mit \"Ja\" (engl. yes) diesen Vorgang Ihrer "
  445.     "User-Startup-Datei hinzufügen.\n\n"
  446.     @startup-help
  447. ))
  448. (set #warn-env-kick
  449. (cat "\nBitte versichern Sie sich, daß die Inhalte der Env:-Schublade bei Ihnen "
  450.     "nicht durch ausschalten des Rechners verloren geht. Env: sollte nicht "
  451.     "einem Verzeichnis im Speicher (Ram Disk) Ihres Rechners zugewiesen sein.\n\n"
  452.     "Achtung: die standard Startup-Sequence der Commodore Workbench 1.3 "
  453.     "weist ENV: einem flüchtigen Speicher zu und muß daher geändert werden!\n"
  454. ))
  455. (set #w-emul
  456. (cat "Was für eine Emulation unterstützt Ihr Drucker?"
  457. ))
  458. (set #w-emul-help
  459. (cat "\nStudio enthält Druckertreiber für verschiedene Drucker-Emulationen. "
  460.     "Das Benutzerhandbuch Ihres Druckers gibt Ihnen sicher Auskunft über "
  461.     "die von Ihrem Drucker unterstützten Emulationen.\n\n"
  462.     "Viele Drucker unterstützen mehrere Emulationen in verschiedener Qualität. "
  463.     "Versuchen Sie daher mehrere Emulationen aus, um die für Sie richtige zu finden.\n\n"
  464.     @askchoice-help
  465. ))
  466. (set #w-desk
  467. (cat "Was für einen Deskjet Drucker benutzen Sie?"
  468. ))
  469. (set #w-desk-help
  470. (cat @askchoice-help
  471. ))
  472. (set #w-color
  473. (cat "Was für einen Drucker haben Sie?"
  474. ))
  475. (set #w-color-help
  476. (cat "\nStudio Druckertreiber erlauben das Drucken von bis zu 256 Graustufen "
  477.     "durch das Emulieren eines Farbdruckers. Sie müssen daher zwischen "
  478.     "Farb- und Graustufen-Druck wählen.\n"
  479.     "Wählen Sie die von Ihnen am meisten benutzte Ausdrucksform. "
  480.     "Die Einstellung kann dann später bei Bedarf jederzeit geändert "
  481.     "werden.\n\n"
  482.     @askchoice-help
  483. ))
  484. (set #w-color-choice1
  485. (cat "Farbe"
  486. ))
  487. (set #w-color-choice2
  488. (cat "Graustufen"
  489. ))
  490. (set #cfm-delete
  491. (cat "\n\nKönnen die alten Studio-Voreinstellungen gelöscht werden?"
  492. ))
  493. (set #cfm-delete-help
  494. (cat "\nEs scheint, Sie hatten bereits einmal einen Studio-Treiber "
  495.     "installiert. Sie müssen die Voreinstellungen des alten Treibers "
  496.     "löschen, bevor ein neuer Treiber installiert werden kann.\n\n"
  497. ))
  498. (set #cfm-delete-1
  499. (cat "Ja, löschen"
  500. ))
  501. (set #cfm-delete-2
  502. (cat "Nein"
  503. ))
  504. (set #cfmdelete
  505. (cat "Tut mir leid, aber ohne das Löschen Deiner alter Voreinstellungen "
  506.     "kann ich keinen neuen Treiber installieren. Dies dient Ihrer "
  507.     "Datensicherheit. Sollten Sie sich anders entscheiden, dann rufen "
  508.     "Sie bitte das Installationsprogramm erneut auf!\n\n"
  509. ))
  510. (set #w-driver
  511. (cat "Wie lautet die Emulation bzw. der Hersteller Ihres Druckers?"
  512. ))
  513. (set #w-driver-help
  514. (cat "\nStudio enthält Druckertreiber für verschiedene Drucker-Emulationen. "
  515.     "Das Benutzerhandbuch Ihres Druckers gibt Ihnen sicher Auskunft über "
  516.     "die von Ihrem Drucker unterstützten Emulationen.\n\n"
  517.     "Viele Drucker unterstützen mehrere Emulationen in verschiedener Qualität. "
  518.     "Versuchen Sie daher mehrere Emulationen, um die für Sie richtige zu finden.\n\n"
  519.     @askchoice-help
  520. ))
  521. (set #w-ink
  522. (cat "Was für einen Typ von Drucker haben Sie?"
  523. ))
  524. (set #w-ink-help
  525. (cat @askchoice-help
  526. ))
  527. (set #w-ink-choice1
  528. (cat "Tintenstrahldrucker"
  529. ))
  530. (set #w-ink-choice2
  531. (cat "Nadeldrucker"
  532. ))
  533. (set #w-gemu
  534. (cat "Was für eine Grafik-Emulation besitzt Ihr Drucker?"
  535. ))
  536. (set #w-gemu-help
  537. (cat "\nDie meisten 24 Matrixdrucker unterstützen heute 360 Punkte pro Inch (1 Inch = 2,54 cm). "
  538.     "Drucker von Star benutzen z.B. eine von zwei Emulationen zur Steuerung dazu: Nec oder Epson "
  539.     "Die zum Druck verwendete Emulation wird üblicherweise am Drucker mit einem kleinen "
  540.     "Schalter eingestellt. Entsprechend muß der Druckertreiber die gleiche Emulation "
  541.     "benutzen.\n\n"
  542.     "Achtung: alte Star-Drucker (Typ NB) unterstützen meist nur Nec-Emulation!\n\n"
  543.     "Sie können auch später jederzeit die Einstellung für die Emulation mit Hilfe "
  544.     "des PinPref-Programms ändern.\n\n"
  545.     @askchoice-help
  546. ))
  547. (set #w-gemu2
  548. (cat "Was für eine Grafik-Emulation besitzt Ihr Drucker?"
  549. ))
  550. (set #w-gemu2-help
  551. (cat "\nDie meisten 24 Matrixdrucker unterstützen heute 360 Punkte pro Inch (1 Inch = 2,54 cm). "
  552.     "Drucker von Star benutzen z.B. eine von zwei Emulationen zur Steuerung dazu: Nec oder Epson "
  553.     "Die zum Druck verwendete Emulation wird üblicherweise am Drucker mit einem kleinen "
  554.     "Schalter eingestellt. Entsprechend muß der Druckertreiber die gleiche Emulation "
  555.     "benutzen.\n\n"
  556.     "Achtung: alte Star-Drucker (Typ NB) unterstützen meist nur Nec-Emulation!\n\n"
  557.     "Sie können auch später jederzeit die Einstellung für die Emulation mit Hilfe "
  558.     "des PinPref-Programms ändern.\n\n"
  559.     @askchoice-help
  560. ))
  561. (set #w-laser
  562. (cat "Was für einen Laserdrucker besitzen Sie?"
  563. ))
  564. (set #w-laser-help
  565. (cat "\nEs gibt viele verschiedene Arten von Laserjet-Emulationen. Die angezeigte "
  566.     "Auswahl hilft die für Sie richtige Emulation zu finden. "
  567.     "Dennoch ist meist ein weiteres optimieren der Einstellungen von "
  568.     "\"Hand\" mittels des LaserPref-Programms nötig.\n\n"
  569.     @askchoice-help
  570. ))
  571. (set #pagestream
  572. (cat "\n\nWollen Sie PCL 5/e (Laserjet III/IV) kompatible Treiber für das DTP-Programm "
  573.     "PageStream installieren?\n\n"
  574. ))
  575. (set #pagestream-help
  576. (cat "\nDas Studio-Paket enthält auch spezielle Druckertreiber für das DTP-Programm "
  577.     "PageStream V2.x. Sollten Sie das DTP-Programm besitzen, dann können Sie "
  578.     "mit diesen PCL 5 und PCL 5e Treibern ca. 200 %% schneller drucken.\n\n"
  579. ))
  580. (set #pagestream-yes
  581. (cat "Ja"
  582. ))
  583. (set #pagestream-no
  584. (cat "Nein"
  585. ))
  586. (set #pagestreamdesk
  587. (cat "\n\nWollen Sie einen 4-Farb-Treiber für das DTP-Programm "
  588.     "PageStream installieren?\n\n"
  589. ))
  590. (set #pagestreamdesk1200
  591. (cat "\n\nAchtung! Geben Sie \"pcl5\" (Kleinschrift!) in das PageStream \"Special\"-"
  592.     "Eingabefeld ein! Ohne die Angabe von pcl5 funktioniert der PageStream-Treiber nicht!\n\n"
  593. ))
  594. (set #emu
  595. (cat "\n\nBenutzen Sie mehrere Emulationen Ihres Druckers während einer Computersitzung? "
  596.     "Wenn Sie zwischen diesen Emulationen manuell oder automatisch umschalten, "
  597.     "sollten Sie die Frage mit JA beantworten.\n\n"
  598. ))
  599. (set #emu-help
  600. (cat "\nWählen Sie JA, wenn Sie einen Drucker mit mehreren benutzten Emulationen besitzen! "
  601.     "Haben Sie z.B. einen Laserjet-Drucker mit PostScript-Erweiterng und benutzen "
  602.     "beide Emulationen während einer Computersitzung, dann wählen Sie JA. "
  603.     "Dies stellt sicher, daß der Drucker immer automatisch bei jedem Ausdruck "
  604.     "initialisiert.\n\n"
  605. ))
  606. (set #emu-yes
  607. (cat "Ja"
  608. ))
  609. (set #emu-no
  610. (cat "Nein"
  611. ))
  612. (set #ask-pagestreamdesk
  613. (cat "\nIn welche Schublade soll der PageStream-Treiber (Deskjet4C) "
  614.     "kopiert werden?"
  615. ))
  616. (set #ask-pagestream
  617. (cat "\nIn welche Schublade sollen die PageStream-Treiber (HP-PCL5 & HP-PCL5-PJL) "
  618.     "kopiert werden?"
  619. ))
  620. (set #ask-pagestream-help
  621. (cat "\nIn diesem Teil können Sie die Ziel-Schublade für die PageStream "
  622.     "Druckertreiber wählen. Normalerweise sollte die "
  623.     "PageStream \"Printers\"-Schublade angegeben werden.\n\n"
  624.     @askdir-help
  625. ))
  626. (set #HPsetup
  627. (cat "\n\nBitte stellen Sie Ihren Drucker auf eine Auflösung von 600 dpi ein!"
  628. ))
  629. (set #finalmsg1
  630. (cat "Der Treiber wurde installiert unter dem Namen\n\""
  631. ))
  632. (set #finalmsg2
  633. (cat "\"\nund sollte jetzt in dem \"Printer\"-Programm der Workbench eingestellt werden.\n"
  634.     "Das Studio-Programm für die Voreinstellungen des Treibers wurde unter den Namen\n\""
  635. ))
  636. (set #finalmsg3
  637. (cat "\"\ngespeichert und sollte jetzt zur genaueren Einstellung benutzt werden.\n"
  638.     "Achtung: die von dem Installations-Programm gemachten Voreinstellungen "
  639.     "sind sicher nicht optimal und können im schlimmsten Fall zu Fehlfunktionen führen, "
  640.     "wenn Sie nicht die Voreinstellungen genauer an Ihren Drucker anpassen!"
  641. ))
  642. (set #wrongdither
  643. (cat "\n\nACHTUNG: Die Workbench Voreinstellungen sind FALSCH!\n\n"
  644.     "Bitte selektieren Sie die \"geordnete\" (engl. ordered) "
  645.     "Dither-Methode mit Hilfe des \"PrinterGfX\"- bzw. \"Preferences\"-"
  646.     "Programms. Zur Erleichterung und zur Sicherheit wird das Programm "
  647.     "für die Voreinstellungen jetzt gestartet..."
  648. ))
  649. (set #waitmsg
  650. (cat "\n\n\n\nIch arbeite! Bitte warten..."
  651. ))
  652.  
  653. ))
  654.  
  655. (welcome #welcome)
  656. (message #welcome-pirate)
  657.  
  658. ; **** sure we are running under a 2.04 ROM???
  659. (if (< (/ (getversion) 65536) 37)
  660.     (message #bad-kick)
  661. )
  662.  
  663. (complete 5)
  664.  
  665. ; **** Wich parts should get installed: driver &-| Studio?
  666. (set studio (askoptions (prompt #w-studio)
  667.     (help #w-studio-help)
  668.     (choices #w-studio-choices1 #w-studio-choices2)
  669.     (default 3)
  670.     )
  671. )
  672. (set compl 60)
  673. (if (= studio 3)
  674. (
  675.     set compl 20
  676. ))
  677. (complete compl)
  678.  
  679. ; **** Install Studio program?
  680. (if (IN studio 1)
  681. (
  682.     (set studdisk (getassign "WORK" "d"))
  683.     (if (= studdisk "")
  684.     (
  685.         (set studdisk (getassign "DH0" "d"))
  686.         (if (= studdisk "")
  687.         (
  688.             (set studdisk (getassign "DH2" "d"))
  689.             (if (= studdisk "")
  690.             (
  691.                 (set studdisk "SYS:")
  692.             ))
  693.         ))
  694.     ))
  695.     (set target (askdir (prompt #which-disk)
  696.         (help #which-disk-help)
  697.         (default studdisk))
  698.     )
  699.     (set @default-dest target)
  700.     (set targetsize (getdiskspace target))
  701.     (if (< targetsize 160000)
  702.     (
  703.         (if (<> (getdevice target) "RAM")
  704.         (
  705.             (abort #abortmsg)
  706.         ))
  707.     ))
  708.     (complete (set compl (+ compl 10)))
  709.     (working #waitmsg)
  710.     (run (cat "StudioDisk:unpack StudioDisk:packed/Studio.pkd \""
  711.                     (tackon target "Studio\"")
  712.     ))
  713.     (if (exists "RAM:StudioTemp")
  714.     (
  715.         (abort #abortunpack)
  716.     ))
  717.     (complete (set compl (+ compl 10)))
  718.     (copyfiles (source "StudioDisk:Studio")
  719.         (dest target)
  720.         (nogauge)
  721.         (all))
  722.     (complete (set compl (+ compl 10)))
  723.     (copyfiles (source "StudioDisk:Dithers")
  724.         (dest (tackon target "Dither-Settings"))
  725.         (all)
  726.         (infos)
  727.         (nogauge))
  728.     (complete (set compl (+ compl 10)))
  729. ))
  730.  
  731. ; **** Install printer driver?
  732. (if (IN studio 0)
  733. (
  734.     (set @default-dest "")
  735.     ; find the devs:printers directory
  736.     (set studdisk "Devs:Printers")
  737.     (if (= @user-level 2)
  738.     (
  739.         (set studdisk (askdir (prompt #ask-sys)
  740.             (help #ask-sys-help)
  741.             (default studdisk))
  742.         )
  743.     ))
  744.     (if (not (exists studdisk))
  745.     (
  746.         (set studdisk (askdir (prompt #ask-sys)
  747.             (help #ask-sys-help)
  748.             (default studdisk))
  749.         )
  750.     ))
  751.     (complete (set compl (+ compl 5))) ; 65
  752.     (set targetsize (getdiskspace studdisk))
  753.     (if (< targetsize 35000)
  754.     (
  755.         (if (<> (getdevice studdisk) "RAM")
  756.         (
  757.             (abort #abortmsgdriver)
  758.         ))
  759.     ))
  760.  
  761.  
  762.     ; **** find the sys:prefs directory
  763.     (set prefdisk ("SYS:Prefs"))
  764.     (if (exists "sys:preferences")
  765.     (
  766.         (set prefdisk ("SYS:Preferences"))
  767.     ))
  768.     (if (exists "SYS:Prefs")
  769.     (
  770.         (set prefdisk ("SYS:Prefs"))
  771.     ))
  772.     (set prefdisk (askdir (prompt #ask-prefs)
  773.         (help #ask-prefs-help)
  774.         (default prefdisk))
  775.     )
  776.     (if (not (exists prefdisk))
  777.     (
  778.         (set prefdisk (askdir (prompt #ask-prefs)
  779.             (help #ask-prefs-help)
  780.             (default prefdisk))
  781.         )
  782.     ))
  783.     (set targetsize (getdiskspace prefdisk))
  784.     (if (< targetsize 80000)
  785.     (
  786.         (if (<> (getdevice prefdisk) "RAM")
  787.         (
  788.             (abort #abortmsgpref)
  789.         ))
  790.     ))
  791.     ; find the ENV: directory
  792.     (if (not (exists "ENV:"))
  793.     (
  794.         (if (< (/ (getversion) 65536) 37)
  795.             (abort #missing-env-kick)
  796.         )
  797.         (set envdisk "SYS:Env-Archive")
  798.         (if (exists "SYS:Prefs/Env-Archive")
  799.         (
  800.             (set envdisk "SYS:Prefs/Env-Archive")
  801.         ))
  802.         (message #ask-env-mes)
  803.         (set envdisk (askdir (prompt #ask-env)
  804.             (help #ask-env-help)
  805.             (default envdisk))
  806.         )
  807.         (startup
  808.             "Studio"
  809.             (prompt #ask-startup)
  810.             (help #ask-startup-help )
  811.             (command ("Assign ENV: %s" envdisk))
  812.         )
  813.         (makeassign "ENV" envdisk)
  814.     )
  815.     ( ; else
  816.         (if (< (/ (getversion) 65536) 37)
  817.             (message #warn-env-kick)
  818.         )
  819.     ))
  820.     ; delete old ENV: and ENVARC: settings
  821.     (set n 0 )
  822.     (foreach "Env:" "Studio#?"
  823.     (
  824.         (set n 1)
  825.     ))
  826.     (if (> n 0)
  827.     (
  828.         (if (askbool (prompt (#cfm-delete))
  829.             (help (#cfm-delete-help ))
  830.             (choices #cfm-delete-1 #cfm-delete-2)
  831.             (default 1))
  832.         (
  833.             (set n 0)
  834.             (while (set thisfile (select n  "Beep"
  835.                 "Time"
  836.                 "ResX"
  837.                 "ResY"
  838.                 "Dry"
  839.                 "GAdj"
  840.                 "CAdj"
  841.                 "MAdj"
  842.                 "YAdj"
  843.                 "GDit"
  844.                 "CDit"
  845.                 "MDit"
  846.                 "YDit"
  847.                 "Copies"
  848.                 "Type"
  849.                 "Type0"
  850.                 "Type1"
  851.                 "Type2"
  852.                 "Type3"
  853.                 "Type4"
  854.                 "Type5"
  855.                 "Type6"
  856.                 "Type7"
  857.                 "Type8"
  858.                 "Type9"
  859.                 "Type10"
  860.                 "Perf"
  861.                 "Mirror"
  862.                 "Sep"
  863.                 "Magenta"
  864.                 "Yellow"
  865.                 "Orient"
  866.                 "TDirect"
  867.                 "Scale"
  868.                 "Top"
  869.                 "Tab"
  870.                 "Super"
  871.                 "Form"
  872.                 "Color"
  873.                 "GEmu"
  874.                 "TEmu"
  875.                 "Strip"
  876.                 "Quiet"
  877.                 "KAdj"
  878.                 "KDit"
  879.                 "GFeed"
  880.                 "PageLen"
  881.                 "Wrap"
  882.                 "GDirect"
  883.                 "Shingl"
  884.                 "Depl"
  885.                 "Quality"
  886.                 "Compress"
  887.                 "Symbol"
  888.                 "Media"
  889.                 "PCL5"
  890.                 "Tray"
  891.                 "OutTray"
  892.                 "PJL"
  893.                 "HighRes"
  894.                 "PPage"
  895.                 "PjlHighRes"
  896.                 "PjlTimeout"
  897.                 "PjlTimeFlag"
  898.                 "PjlRet"
  899.                 "PjlProtect"
  900.                 "" ))
  901.             (
  902.                 (set n (+ n 1))
  903.                 (if (exists (cat "ENV:Studio" thisfile))
  904.                 (
  905.                     (delete (cat "ENV:Studio" thisfile))
  906.                 ))
  907.                 (if (>= (/ (getversion) 65536) 37)
  908.                     (if (exists (cat "ENVARC:Studio" thisfile))
  909.                     (
  910.                         (delete (cat "ENVARC:Studio" thisfile))
  911.                     ))
  912.                 )
  913.             ))
  914.         )
  915.         ( ; else
  916.             (abort #cfmdelete)
  917.         ))
  918.     ))
  919.  
  920.     ; ask for kind of printer 
  921.     (set emul   (askchoice (prompt #w-emul)
  922.         (help #w-emul-help)
  923.             (choices "Dot-Matrix Emulations: Epson, Nec, Star,..."
  924.                 "Deskjet compatible: 500, 510, 1200 and PJ300XL"
  925.                 "Deskjet 550C and compatible"
  926.                 "HP LaserJet / PCL compatible"
  927.             )
  928.             (default 0)
  929.     ))
  930.  
  931.     (complete (set compl (+ compl 5))) ;70
  932.  
  933.     ; ask for: color or b/w if not laser printer
  934.     (if (< emul 3)
  935.     (
  936.         (set prtcolor (askchoice (prompt #w-color)
  937.             (help #w-color-help)
  938.             (choices #w-color-choice1
  939.                 #w-color-choice2)
  940.             (default 0)
  941.         ))
  942.         (if (> prtcolor 0)
  943.         (
  944.             (textfile   (dest "ENV:StudioSuper")
  945.                 (append "ON"))
  946.         ))
  947.     ))
  948.     ; copy CMY dithers to dither-settings
  949.     (copyfiles (source "StudioDisk:Dithers")
  950.         (dest (tackon prefdisk "Dither-Settings"))
  951.         (all)
  952.         (infos)
  953.         (nogauge)
  954.     )
  955.     ; make directory for color adjustments
  956.     (if (not (exists (tackon prefdisk "Color-Settings")))
  957.         (makedir (tackon prefdisk "Color-Settings")
  958.             (infos))
  959.     )
  960.     ; ditherord = ordered dither 64 shades
  961.     (set ditherord  "8 8  4 236 60 220 8 224 48 208 132 68 188 124 136 72 176 112 36 196 20 252 40 200 24 240 164 100 148 84 168 104 152 88 12 228 52 212 0 232 56 216 140 76 180 116 128 64 184 120 44 204 28 244 32 192 16 248 172 108 156 92 160 96 144 80") ; order 64
  962.     ; now check wich kind of dot matrix printer the user has
  963.     (if (= emul 0)
  964.     (  ; PinDriver
  965.         ; **** copy additional CMYK dithers to dither-settings
  966.         (copyfiles (source "StudioDisk:Dithers4C")
  967.             (dest (tackon prefdisk "Dither-Settings"))
  968.             (all)
  969.             (infos)
  970.             (nogauge)
  971.         )
  972.         (set brand  (askchoice (prompt #w-driver)
  973.             (help #w-driver-help)
  974.             (choices "Epson 24 pin Emulation:    LQ, SQ, ..."
  975.                 "Epson 48 pin Emulation:    SQ, BJC800, ..."
  976.                 "Seikosha   (Epson):        SL230, ..."
  977.                 "Star       (Epson):        SJ/LC/XB, ..."
  978.                 "Oki        (Epson):        390,391, ..."
  979.                 "Nec        (Epson/Nec)  :  P6, P6+, P60,..."
  980.                 "Fujitsu (DPL24C/DPL24C+):  DL1100, ..."
  981.                 "Panasonic  (Epson 24pin):  KX-P, ..."
  982.                 "Citizen    (Epson 24pin):  224, Swift24 ..."
  983.             )
  984.             (default 0)
  985.         ))
  986.         ; do we have an inkjet or pin printer?
  987.         (set kind  (askchoice (prompt #w-ink)
  988.             (help #w-ink-help)
  989.             (choices #w-ink-choice1
  990.                  #w-ink-choice2
  991.             )
  992.             (default 0)
  993.         ))
  994.         (set adj "0 79 106 127 144 158 171 183 194 204 214 223 231 240 247 255")
  995.         (if (= kind 1) ; **** pin printer
  996.         (
  997.             (set ditherord  "8 8  144 160 152 128 108 92 100 124 216 224 232 176 36 28 20 76 208 248 240 168 44 4 12 84 184 200 192 136 68 52 60 116 104 88 96 120 148 164 156 132 32 24 16 72 220 228 236 180 40 0 8 80 212 252 244 172 64 48 56 112 188 204 196 140") ; halftone a 64
  998.             (set adj "0 90 117 137 153 167 179 190 200 210 218 226 234 241 248 255") ; gamma 32
  999.         ))
  1000.         (textfile   (dest "Env:StudioGDit")
  1001.             (append ditherord))
  1002.         (textfile   (dest "Env:StudioCDit")
  1003.             (append ditherord))
  1004.         (textfile   (dest "Env:StudioMDit")
  1005.             (append ditherord))
  1006.         (textfile   (dest "Env:StudioYDit")
  1007.             (append ditherord))
  1008.         (textfile   (dest "Env:StudioKDit")
  1009.             (append ditherord))
  1010.         (complete (set compl (+ compl 5))) ; 75
  1011.         (set printerdriver "PinDriver")
  1012.         (set printerpref "PinPref")
  1013.  
  1014.         (if (= brand 0) ; **** Epson 24 pin
  1015.         (
  1016.             (textfile   (dest "Env:StudioGAdj")
  1017.                 (append adj))
  1018.             (textfile   (dest "Env:StudioCAdj")
  1019.                 (append adj))
  1020.             (textfile   (dest "Env:StudioMAdj")
  1021.                 (append adj))
  1022.             (textfile   (dest "Env:StudioYAdj")
  1023.                 (append adj))
  1024.             (textfile   (dest "Env:StudioKAdj")
  1025.                 (append adj))
  1026.         ))
  1027.         (if (= brand 1) ; **** Epson 48 pin
  1028.         (
  1029.             (textfile   (dest "Env:StudioGEmu")
  1030.                 (append "1"))
  1031.             (textfile   (dest "Env:StudioGAdj")
  1032.                 (append adj))
  1033.             (textfile   (dest "Env:StudioCAdj")
  1034.                 (append adj))
  1035.             (textfile   (dest "Env:StudioMAdj")
  1036.                 (append adj))
  1037.             (textfile   (dest "Env:StudioYAdj")
  1038.                 (append adj))
  1039.             (textfile   (dest "Env:StudioKAdj")
  1040.                 (append adj))
  1041.         ))
  1042.         (if (= brand 2) ; **** Seikosha
  1043.         (
  1044.             (textfile   (dest "Env:StudioTEmu")
  1045.                 (append "5"))
  1046.             (textfile   (dest "Env:StudioGAdj")
  1047.                 (append adj))
  1048.             (textfile   (dest "Env:StudioCAdj")
  1049.                 (append adj))
  1050.             (textfile   (dest "Env:StudioMAdj")
  1051.                 (append adj))
  1052.             (textfile   (dest "Env:StudioYAdj")
  1053.                 (append adj))
  1054.             (textfile   (dest "Env:StudioKAdj")
  1055.                 (append adj))
  1056.         ))
  1057.         (if (= brand 3) ; **** Star
  1058.         (
  1059.             (if (askchoice (prompt #w-gemu)
  1060.                 (help #w-gemu-help)
  1061.                 (choices "Epson Emulation:  LC24"
  1062.                     "Nec Emulation:    NBxx"
  1063.                 )
  1064.                 (default 0))
  1065.             (
  1066.                 (textfile   (dest "Env:StudioGEmu")
  1067.                     (append "3"))
  1068.             ))
  1069.             (textfile   (dest "Env:StudioTEmu")
  1070.                 (append "7"))
  1071.             (textfile   (dest "Env:StudioGAdj")
  1072.                 (append adj))
  1073.             (textfile   (dest "Env:StudioCAdj")
  1074.                 (append adj))
  1075.             (textfile   (dest "Env:StudioMAdj")
  1076.                 (append adj))
  1077.             (textfile   (dest "Env:StudioYAdj")
  1078.                 (append adj))
  1079.             (textfile   (dest "Env:StudioKAdj")
  1080.                 (append adj))
  1081.         ))
  1082.         (if (= brand 4) ; **** Oki
  1083.         (
  1084.             (textfile   (dest "Env:StudioGEmu")
  1085.                 (append "2"))
  1086.             (textfile   (dest "Env:StudioTEmu")
  1087.                 (append "1"))
  1088.             (textfile   (dest "Env:StudioGAdj")
  1089.                 (append adj))
  1090.             (textfile   (dest "Env:StudioCAdj")
  1091.                 (append adj))
  1092.             (textfile   (dest "Env:StudioMAdj")
  1093.                 (append adj))
  1094.             (textfile   (dest "Env:StudioYAdj")
  1095.                 (append adj))
  1096.             (textfile   (dest "Env:StudioKAdj")
  1097.                 (append adj))
  1098.         ))
  1099.         (if (= brand 5) ; **** Nec
  1100.         (
  1101.             (textfile   (dest "Env:StudioGEmu")
  1102.                 (append "3"))
  1103.             (textfile   (dest "Env:StudioTEmu")
  1104.                 (append "2"))
  1105.             (textfile   (dest "Env:StudioGAdj")
  1106.                 (append adj))
  1107.             (textfile   (dest "Env:StudioCAdj")
  1108.                 (append adj))
  1109.             (textfile   (dest "Env:StudioMAdj")
  1110.                 (append adj))
  1111.             (textfile   (dest "Env:StudioYAdj")
  1112.                 (append adj))
  1113.             (textfile   (dest "Env:StudioKAdj")
  1114.                 (append adj))
  1115.         ))
  1116.         (if (= brand 6) ; **** Fujitsu
  1117.         (
  1118.             (textfile   (dest "Env:StudioGEmu")
  1119.                 (append "4"))
  1120.             (textfile   (dest "Env:StudioTEmu")
  1121.                 (append "3"))
  1122.             (textfile   (dest "Env:StudioGAdj")
  1123.                 (append adj))
  1124.             (textfile   (dest "Env:StudioCAdj")
  1125.                 (append adj))
  1126.             (textfile   (dest "Env:StudioMAdj")
  1127.                 (append adj))
  1128.             (textfile   (dest "Env:StudioYAdj")
  1129.                 (append adj))
  1130.             (textfile   (dest "Env:StudioKAdj")
  1131.                 (append adj))
  1132.         ))
  1133.         (if (= brand 7) ; **** Panasonic
  1134.         (
  1135.             (if (askchoice (prompt #w-gemu2)
  1136.                 (help #w-gemu2-help)
  1137.                 (choices "Epson Emulation"
  1138.                     "Nec Emulation"
  1139.                 )
  1140.                 (default 0))
  1141.             (
  1142.                 (textfile   (dest "Env:StudioGEmu")
  1143.                     (append "3"))
  1144.             ))
  1145.             (textfile   (dest "Env:StudioTEmu")
  1146.                 (append "4"))
  1147.             (textfile   (dest "Env:StudioGAdj")
  1148.                 (append adj))
  1149.             (textfile   (dest "Env:StudioCAdj")
  1150.                 (append adj))
  1151.             (textfile   (dest "Env:StudioMAdj")
  1152.                 (append adj))
  1153.             (textfile   (dest "Env:StudioYAdj")
  1154.                 (append adj))
  1155.             (textfile   (dest "Env:StudioKAdj")
  1156.                 (append adj))
  1157.             (working #waitmsg)
  1158.             (run (cat "StudioDisk:unpack StudioDisk:prefs/SetupKXP.pkd \""
  1159.                 (tackon prefdisk "SetupKXP")
  1160.                 "\"")
  1161.             )
  1162.             (if (exists "RAM:StudioTemp")
  1163.             (
  1164.                 (abort #abortunpack)
  1165.             ))
  1166.             (copyfiles (source (cat "StudioDisk:Prefs/SetupKXP.info"))
  1167.                 (dest prefdisk )
  1168.                 (files)
  1169.                 (nogauge))
  1170.  
  1171.         ))
  1172.         (if (= brand 8) ; **** Citizen
  1173.         (
  1174.             (set adj "0 79 106 127 144 158 171 183 194 204 214 223 231 240 247 255")
  1175.             (textfile   (dest "Env:StudioTEmu")
  1176.                 (append "6"))
  1177.             (textfile   (dest "Env:StudioGAdj")
  1178.                 (append adj))
  1179.             (textfile   (dest "Env:StudioCAdj")
  1180.                 (append adj))
  1181.             (textfile   (dest "Env:StudioMAdj")
  1182.                 (append adj))
  1183.             (textfile   (dest "Env:StudioYAdj")
  1184.                 (append adj))
  1185.             (textfile   (dest "Env:StudioKAdj")
  1186.                 (append adj))
  1187.         ))
  1188.         (complete (set compl (+ compl 5))) ; 80
  1189.     ))
  1190.     (if (= emul 1)
  1191.     (  ; Deskjet
  1192.         ; ask for kind of printer 
  1193.         (set desk   (askchoice (prompt #w-desk)
  1194.             (help #w-desk-help)
  1195.                 (choices "HP Deskjet and compatible"
  1196.                     "HP Deskjet Plus"
  1197.                     "HP Deskjet 500  and compatible"
  1198.                     "HP Deskjet 500C and compatible"
  1199.                     "HP Deskjet 1200C and 1200PS"
  1200.                     "HP Paintjet 300XL"
  1201.                  )
  1202.                 (default 0)
  1203.         ))
  1204.         (if (> desk 1)
  1205.         (
  1206.             (textfile   (dest "Env:StudioCompress")
  1207.                 (append "3"))
  1208.             (if (> desk 2)
  1209.             (
  1210.                 (copyfiles (source "StudioDisk:Color-Settings")
  1211.                     (dest (tackon prefdisk "Color-Settings"))
  1212.                     (all)
  1213.                     (infos)
  1214.                     (nogauge)
  1215.                 )
  1216.             ))
  1217.         ))
  1218.         (set printerdriver "DeskDriver")
  1219.         (set printerpref "DeskPref")
  1220.         (textfile   (dest "Env:StudioGDit")
  1221.             (append ditherord))
  1222.         (textfile   (dest "Env:StudioCDit")
  1223.             (append ditherord))
  1224.         (textfile   (dest "Env:StudioMDit")
  1225.             (append ditherord))
  1226.         (textfile   (dest "Env:StudioYDit")
  1227.             (append ditherord))
  1228.         (complete (set compl (+ compl 10))) ; 80
  1229.         (set adj "0 66 93 114 132 147 161 174 186 198 208 218 228 237 246 255")
  1230.         (set adj2 "0 104 167 193 205 215 221 225 232 237 240 244 249 253 255 255")
  1231.         (set adj3 "0 95 140 161 191 198 209 219 228 232 236 240 242 246 251 255")
  1232.         (set adj4 "0 100 154 178 199 207 215 224 230 232 238 242 247 251 253 255")
  1233.         ; DJ 1200 and PJ 300XL: install pagestream driver and note about pcl5 option
  1234.         (if (> desk 3)
  1235.         (
  1236.             ; ditherord = ordered dither 256 shades
  1237.             (copyfiles (source "StudioDisk:dithers/Ordered-A-256.dit")
  1238.                 (dest "ENV:")
  1239.                 (newname "StudioGDit")
  1240.                 (files)
  1241.                 (infos)
  1242.                 (nogauge))
  1243.             (copyfiles (source "StudioDisk:dithers/Ordered-A-256.dit")
  1244.                 (dest "ENV:")
  1245.                 (newname "StudioCDit")
  1246.                 (files)
  1247.                 (infos)
  1248.                 (nogauge))
  1249.             (copyfiles (source "StudioDisk:dithers/Ordered-A-256.dit")
  1250.                 (dest "ENV:")
  1251.                 (newname "StudioMDit")
  1252.                 (files)
  1253.                 (infos)
  1254.                 (nogauge))
  1255.             (copyfiles (source "StudioDisk:dithers/Ordered-A-256.dit")
  1256.                 (dest "ENV:")
  1257.                 (newname "StudioYDit")
  1258.                 (files)
  1259.                 (infos)
  1260.                 (nogauge))
  1261.             (if (askbool (prompt (#pagestreamdesk))
  1262.                 (help (#pagestream-help ))
  1263.                 (choices #pagestream-yes #pagestream-no))
  1264.             (
  1265.                 (set pagedrawer (askdir (prompt #ask-pagestreamdesk)
  1266.                     (help #ask-pagestream-help)
  1267.                     (default "WORK:"))
  1268.                 )
  1269.                 ( if( exists (pagedrawer))
  1270.                 (
  1271.                     (copyfiles (source "StudioDisk:PgS/Deskjet4C.printer")
  1272.                         (dest pagedrawer)
  1273.                         (files)
  1274.                         (infos)
  1275.                         (nogauge))
  1276.                         (message #pagestreamdesk1200)
  1277.                 ))
  1278.             ))
  1279.             (set adj "0 12 22 33 50 74 99 120 140 159 176 193 211 228 242 255")
  1280.             (set adj2 "0 47 88 109 140 165 181 197 209 216 224 231 238 244 250 255")
  1281.             (set adj3 "0 74 105 120 147 163 177 192 206 216 228 238 243 248 252 255")
  1282.             (set adj4 "0 99 138 163 194 215 230 240 249 253 254 254 255 255 255 255")
  1283.             (if (= desk 5)
  1284.             (
  1285.                 (set adj "0 60 68 87 108 129 144 157 170 182 194 206 219 235 248 255")
  1286.                 (set adj2 "58 109 144 161 180 194 204 214 224 230 237 243 246 249 252 255")
  1287.                 (set adj3 "58 124 147 158 179 193 205 217 227 235 246 251 253 255 255 255")
  1288.                 (set adj4 "58 124 163 193 222 237 246 251 253 254 254 255 255 255 255 255")
  1289.             ))
  1290.         ))
  1291.         (textfile   (dest "Env:StudioGAdj")
  1292.             (append adj))
  1293.         (textfile   (dest "Env:StudioCAdj")
  1294.             (append adj2))
  1295.         (textfile   (dest "Env:StudioMAdj")
  1296.             (append adj3))
  1297.         (textfile   (dest "Env:StudioYAdj")
  1298.             (append adj4))
  1299.         (if (> prtcolor 0)
  1300.         (
  1301.             (textfile   (dest "Env:StudioShingl")
  1302.                 (append "1"))
  1303.         )
  1304.         ( ; else
  1305.             (textfile   (dest "Env:StudioShingl")
  1306.                 (append "2"))
  1307.             (textfile   (dest "Env:StudioDepl")
  1308.                 (append "1"))
  1309.         ))
  1310.     ))
  1311.     (if (= emul 2)
  1312.     (  ; Deskjet 550C
  1313.         ; ask for kind of printer 
  1314.         (set desk   (askchoice (prompt #w-desk)
  1315.             (help #w-desk-help)
  1316.                 (choices "HP Deskjet 550C  and compatible"
  1317.                     "HP Deskjet 1200C and 1200PS"
  1318.                     "HP Paintjet 300XL"
  1319.                  )
  1320.                 (default 0)
  1321.         ))
  1322.         (set printerdriver "DeskDriver4C")
  1323.         (set printerpref "DeskPref4C")
  1324.         (textfile   (dest "Env:StudioCompress")
  1325.             (append "3"))
  1326.         (textfile   (dest "Env:StudioGDit")
  1327.             (append ditherord))
  1328.         (textfile   (dest "Env:StudioCDit")
  1329.             (append ditherord))
  1330.         (textfile   (dest "Env:StudioMDit")
  1331.             (append ditherord))
  1332.         (textfile   (dest "Env:StudioYDit")
  1333.             (append ditherord))
  1334.         (textfile   (dest "Env:StudioKDit")
  1335.             (append ditherord))
  1336.         (complete (set compl (+ compl 5))) ; 75
  1337.         ; **** copy additional CMYK dithers to dither-settings
  1338.         (copyfiles (source "StudioDisk:Dithers4C")
  1339.             (dest (tackon prefdisk "Dither-Settings"))
  1340.             (all)
  1341.             (infos)
  1342.         )
  1343.         (copyfiles (source "StudioDisk:Color-Settings")
  1344.             (dest (tackon prefdisk "Color-Settings"))
  1345.             (all)
  1346.             (infos)
  1347.             (nogauge)
  1348.         )
  1349.         (complete (set compl (+ compl 5))) ; 80
  1350.         (set adj "0 66 93 114 132 147 161 174 186 198 208 218 228 237 246 255")
  1351.         (set adj2 "0 104 167 193 205 215 221 225 232 237 240 244 249 253 255 255")
  1352.         (set adj3 "0 95 140 161 191 198 209 219 228 232 236 240 242 246 251 255")
  1353.         (set adj4 "0 100 154 178 199 207 215 224 230 232 238 242 247 251 253 255")
  1354.         (set adj5 "0 100 154 178 199 207 215 224 230 232 238 242 247 251 253 255")
  1355.         ; DJ 1200 and PJ 300XL: install pagestream driver and note about pcl5 option
  1356.         (if (> desk 0)
  1357.         (
  1358.             (textfile   (dest "Env:StudioPCL5")
  1359.                 (append "1"))
  1360.             ; ditherord = ordered dither 256 shades
  1361.             (copyfiles (source "StudioDisk:dithers/Ordered-A-256.dit")
  1362.                 (dest "ENV:")
  1363.                 (newname "StudioGDit")
  1364.                 (files)
  1365.                 (infos)
  1366.                 (nogauge))
  1367.             (copyfiles (source "StudioDisk:dithers/Ordered-A-256.dit")
  1368.                 (dest "ENV:")
  1369.                 (newname "StudioCDit")
  1370.                 (files)
  1371.                 (infos)
  1372.                 (nogauge))
  1373.             (copyfiles (source "StudioDisk:dithers/Ordered-A-256.dit")
  1374.                 (dest "ENV:")
  1375.                 (newname "StudioMDit")
  1376.                 (files)
  1377.                 (infos)
  1378.                 (nogauge))
  1379.             (copyfiles (source "StudioDisk:dithers/Ordered-A-256.dit")
  1380.                 (dest "ENV:")
  1381.                 (newname "StudioYDit")
  1382.                 (files)
  1383.                 (infos)
  1384.                 (nogauge))
  1385.             (set adj "0 12 22 33 50 74 99 120 140 159 176 193 211 228 242 255")
  1386.             (set adj2 "0 47 88 109 140 165 181 197 209 216 224 231 238 244 250 255")
  1387.             (set adj3 "0 74 105 120 147 163 177 192 206 216 228 238 243 248 252 255")
  1388.             (set adj4 "0 99 138 163 194 215 230 240 249 253 254 254 255 255 255 255")
  1389.             (set adj5 "0 74 105 120 147 163 177 192 206 216 228 238 243 248 252 255")
  1390.             (if (= desk 2)
  1391.             (
  1392.                 (set adj "0 60 68 87 108 129 144 157 170 182 194 206 219 235 248 255")
  1393.                 (set adj2 "58 109 144 161 180 194 204 214 224 230 237 243 246 249 252 255")
  1394.                 (set adj3 "58 124 147 158 179 193 205 217 227 235 246 251 253 255 255 255")
  1395.                 (set adj4 "58 124 163 193 222 237 246 251 253 254 254 255 255 255 255 255")
  1396.                 (set adj5 "58 124 147 158 179 193 205 217 227 235 246 251 253 255 255 255")
  1397.             ))
  1398.         ))
  1399.         (textfile   (dest "Env:StudioGAdj")
  1400.             (append adj))
  1401.         (textfile   (dest "Env:StudioCAdj")
  1402.             (append adj2))
  1403.         (textfile   (dest "Env:StudioMAdj")
  1404.             (append adj3))
  1405.         (textfile   (dest "Env:StudioYAdj")
  1406.             (append adj4))
  1407.         (textfile   (dest "Env:StudioKAdj")
  1408.             (append adj5))
  1409.         (if (> prtcolor 0)
  1410.         (
  1411.             (textfile   (dest "Env:StudioShingl")
  1412.                 (append "1"))
  1413.         )
  1414.         ( ; else
  1415.             (textfile   (dest "Env:StudioShingl")
  1416.                 (append "2"))
  1417.             (textfile   (dest "Env:StudioDepl")
  1418.                 (append "1"))
  1419.         ))
  1420.         (if (askbool (prompt (#pagestreamdesk))
  1421.             (help (#pagestream-help ))
  1422.             (choices #pagestream-yes #pagestream-no))
  1423.         (
  1424.             (set pagedrawer (askdir (prompt #ask-pagestreamdesk)
  1425.                 (help #ask-pagestream-help)
  1426.                 (default "WORK:"))
  1427.             )
  1428.             ( if( exists (pagedrawer))
  1429.             (
  1430.                 (copyfiles (source "StudioDisk:PgS/Deskjet4C.printer")
  1431.                     (dest pagedrawer)
  1432.                     (files)
  1433.                     (infos)
  1434.                     (nogauge))
  1435.                 (if (> desk 0)
  1436.                 (
  1437.                     (message #pagestreamdesk1200)
  1438.                 ))
  1439.             ))
  1440.         ))
  1441.     ))
  1442.     (if (= emul 3)
  1443.     (  ; Laserjet
  1444.         (set brand  (askchoice (prompt #w-laser)
  1445.             (help #w-laser-help)
  1446.             (choices "PCL 5e compatible, HP IV, 4M, 4Si, 4SiMX"
  1447.                 "HP IIIP, HP 4L"
  1448.                 "PCL 5 compatible, HP III, IIISI, IIID"
  1449.                 "Brother HL4Ve, Nec S62P, Ricoh LP1200"
  1450.                 "Oki 810, Seikosha OP108, Star LS 5"
  1451.                 "Star LS 4, LS5, LS 8, Seikosha OP104"
  1452.                 "HP IIP, Brother HL4V, HL8V, HL8D"
  1453.                 "PCL 3 / PCL 4 / Laserjet II compatible"
  1454.                 "HP LaserJet I, I+, 500, 2000, II"
  1455.                 "Nec S60P, Panasonic KX-P4455"
  1456.             )
  1457.             (default 7)
  1458.         ))
  1459.         (if (< brand 2)
  1460.         (
  1461.             (working #waitmsg)
  1462.             (run (cat "StudioDisk:unpack StudioDisk:prefs/SetupPJL.pkd \""
  1463.                 (tackon prefdisk "SetupPJL")
  1464.                 "\"")
  1465.             )
  1466.             (if (exists "RAM:StudioTemp")
  1467.             (
  1468.                 (abort #abortunpack)
  1469.             ))
  1470.             (copyfiles (source (cat "StudioDisk:Prefs/SetupPJL.info"))
  1471.                 (dest prefdisk )
  1472.                 (files)
  1473.                 (nogauge))
  1474.         ))
  1475.  
  1476.         (complete (set compl (+ compl 5))) ; 75
  1477.         (if (= brand 0)
  1478.         (
  1479.             (textfile   (dest "Env:StudioHighRes")
  1480.                 (append "2"))
  1481.             (textfile   (dest "Env:StudioPJL")
  1482.                 (append "1"))
  1483.             (message #HPsetup)
  1484.         ))
  1485.         (if (< brand 7)
  1486.         (
  1487.             (textfile   (dest "Env:StudioCompress")
  1488.                 (append "1"))
  1489.             (if (< brand 5)
  1490.             (
  1491.                 (if (askbool (prompt (#pagestream))
  1492.                     (help (#pagestream-help ))
  1493.                     (choices #pagestream-yes #pagestream-no))
  1494.                 (
  1495.                     (set pagedrawer (askdir (prompt #ask-pagestream)
  1496.                         (help #ask-pagestream-help)
  1497.                         (default "WORK:"))
  1498.                     )
  1499.                     ( if( exists (pagedrawer))
  1500.                     (
  1501.                         (copyfiles (source "StudioDisk:PgS/HP-PCL5.printer")
  1502.                             (dest pagedrawer)
  1503.                             (files)
  1504.                             (infos)
  1505.                             (nogauge))
  1506.                         (copyfiles (source "StudioDisk:PgS/HP-PCL5-PJL.printer")
  1507.                             (files)
  1508.                             (dest pagedrawer)
  1509.                             (infos)
  1510.                             (nogauge))
  1511.                     ))
  1512.                 ))
  1513.                 (textfile   (dest "Env:StudioSymbol")
  1514.                     (append "1"))
  1515.                 (textfile   (dest "Env:StudioCompress")
  1516.                     (append "3"))
  1517.                 (if (< brand 2)
  1518.                 (
  1519.                     (textfile   (dest "Env:StudioCompress")
  1520.                         (append "4"))
  1521.                 ))
  1522.             ))
  1523.         ))
  1524.         (if (> brand 0)
  1525.         (
  1526.             (if (askbool (prompt (#emu))
  1527.                 (help (#emu-help ))
  1528.                 (choices #emu-yes #emu-no))
  1529.             (
  1530.                 (textfile   (dest "Env:StudioPJL")
  1531.                     (append "2"))
  1532.             ))
  1533.         ))
  1534.         (set printerdriver "LaserDriver")
  1535.         (set printerpref "LaserPref")
  1536.         (textfile   (dest "Env:StudioGDit")
  1537.             (append ditherord))
  1538.         (complete (set compl (+ compl 5))) ; 80
  1539.         (textfile   (dest "Env:StudioGAdj")
  1540.             (append "0 90 117 137 153 167 179 190 200 210 218 226 234 241 248 255"))
  1541.     ))
  1542.  
  1543.     ; *** unpack driver to destination
  1544.     (working #waitmsg)
  1545.     (run (cat "StudioDisk:unpack StudioDisk:drivers/"
  1546.         printerdriver
  1547.         ".pkd \""
  1548.         (tackon studdisk (cat printerdriver "\""))
  1549.     ))
  1550.     (if (exists "RAM:StudioTemp")
  1551.     (
  1552.         (abort #abortunpack)
  1553.     ))
  1554.     (copyfiles (source (cat "StudioDisk:drivers/" printerdriver ".info"))
  1555.         (dest studdisk )
  1556.         (files)
  1557.         (nogauge))
  1558.  
  1559.     (complete 85)
  1560.  
  1561.     ; *** unpack preferences program to destination
  1562.     (run (cat "StudioDisk:unpack StudioDisk:Prefs/"
  1563.         printerpref
  1564.         ".pkd \""
  1565.         (tackon prefdisk  printerpref)
  1566.         "\"")
  1567.     )
  1568.     (if (exists "RAM:StudioTemp")
  1569.     (
  1570.         (abort #abortunpack)
  1571.     ))
  1572.     (copyfiles (source (cat "StudioDisk:Prefs/" printerpref ".info"))
  1573.         (dest prefdisk )
  1574.         (files)
  1575.         (nogauge))
  1576.     (complete 90)
  1577.  
  1578.     ; **** copy ENV: vars to ENVARC:
  1579.     (if (>= (/ (getversion) 65536) 37)
  1580.     (
  1581.         (set n 0)
  1582.         (while (set thisfile (select n  "Beep"
  1583.                 "Time"
  1584.                 "ResX"
  1585.                 "ResY"
  1586.                 "GAdj"
  1587.                 "Copies"
  1588.                 "CAdj"
  1589.                 "Dry"
  1590.                 "MAdj"
  1591.                 "YAdj"
  1592.                 "GDit"
  1593.                 "CDit"
  1594.                 "MDit"
  1595.                 "YDit"
  1596.                 "Type"
  1597.                 "Type0"
  1598.                 "Type1"
  1599.                 "Type2"
  1600.                 "Type3"
  1601.                 "Type4"
  1602.                 "Type5"
  1603.                 "Type6"
  1604.                 "Type7"
  1605.                 "Type8"
  1606.                 "Type9"
  1607.                 "Type10"
  1608.                 "Perf"
  1609.                 "Mirror"
  1610.                 "Sep"
  1611.                 "Magenta"
  1612.                 "Yellow"
  1613.                 "Orient"
  1614.                 "TDirect"
  1615.                 "Scale"
  1616.                 "Top"
  1617.                 "Tab"
  1618.                 "Super"
  1619.                 "Form"
  1620.                 "Color"
  1621.                 "GEmu"
  1622.                 "TEmu"
  1623.                 "Strip"
  1624.                 "Quiet"
  1625.                 "KAdj"
  1626.                 "KDit"
  1627.                 "GFeed"
  1628.                 "PageLen"
  1629.                 "Wrap"
  1630.                 "GDirect"
  1631.                 "Shingl"
  1632.                 "Depl"
  1633.                 "Quality"
  1634.                 "Compress"
  1635.                 "Symbol"
  1636.                 "Tray"
  1637.                 "Media"
  1638.                 "PCL5"
  1639.                 "OutTray"
  1640.                 "PJL"
  1641.                 "HighRes"
  1642.                 "PPage"
  1643.                 "PjlHighRes"
  1644.                 "PjlTimeout"
  1645.                 "PjlTimeFlag"
  1646.                 "PjlRet"
  1647.                 "PjlProtect"
  1648.                 "" ))
  1649.         (
  1650.             (set n (+ n 1))
  1651.             (if (exists (cat "ENV:Studio" thisfile))
  1652.             (
  1653.                 (copyfiles (source (cat "ENV:Studio" thisfile))
  1654.                     (dest "ENVARC:")
  1655.                     (nogauge)
  1656.                     (files))
  1657.             ))
  1658.         ))
  1659.     ))
  1660.     (complete 93)
  1661.     (message (cat #finalmsg1
  1662.         printerdriver
  1663.         #finalmsg2
  1664.         (tackon prefdisk printerpref))
  1665.         #finalmsg3
  1666.     )
  1667.     (complete 95)
  1668.     (if (>= (/ (getversion) 65536) 37)
  1669.         (if (exists "sys:prefs/printer")
  1670.         (
  1671.             (run "sys:prefs/printer")
  1672.         ))
  1673.     )
  1674.     (run "StudioDisk:check")
  1675.     (if (not (exists "RAM:StudioTemp"))
  1676.     (
  1677.         (message #wrongdither)
  1678.         (if (>= (/ (getversion) 65536) 37)
  1679.             (if (exists "sys:prefs/printergfx")
  1680.             (
  1681.                 (run "sys:prefs/printergfx")
  1682.             ))
  1683.         )
  1684.     )
  1685.     ( ; else
  1686.         (delete "RAM:StudioTemp")
  1687.     ))
  1688.     (if (< (/ (getversion) 65536) 37)
  1689.         (if (exists "sys:prefs/preferences")
  1690.         (
  1691.             (run "sys:prefs/preferences")
  1692.         ))
  1693.         ( ; else
  1694.             (run (cat "\""
  1695.                 (tackon prefdisk printerpref)
  1696.                 "\""))
  1697.         )
  1698.     )
  1699.     (complete 100)
  1700. ))
  1701.